perm filename PGTST.SAI[VIS,HPM]1 blob sn#419629 filedate 1979-02-22 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "PGTST"
C00003 ENDMK
CāŠ—;
BEGIN "PGTST"
REQUIRE "PIXHDR.SAI[VIS,HPM]" SOURCE_FILE;
REQUIRE "PGHDR.SAI[VIS,HPM]" SOURCE_FILE;
REQUIRE "DDHDR.SAI[GRA,HPM]" SOURCE_FILE;

   BEGIN
   INTEGER ARRAY PIC[0:PIXDIM(480,512,1)];
   MAKPIX(480,512,1,PIC[0]);
   PDDINI(PIC[0],0,256,240,512);  PSCREE(-4/3,-1,4/3,1);
   PLINE(-1,-1,1,1);
   PLINE(-20,0,20,0);
   PLINE(0,-20,0,20);
   PELLIP(-.5,-.5,.5,.5);
   PTXTPO(-1,-.7,.05,.1); PTEXT("Lower left");
   PUTPFL(PIC[0],"DSK:FOO[TMP,HPM]");
   END;

END;